home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 March / PC Plus Super CD (Issue 101) (March 1995).iso / sharewar / vbaddon / vbfiles / child1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-22  |  2.0 KB  |  60 lines
  1. VERSION 2.00
  2. Begin Form Child1 
  3.    BackColor       =   &H0080FFFF&
  4.    Caption         =   "Child1"
  5.    ClientHeight    =   2430
  6.    ClientLeft      =   510
  7.    ClientTop       =   1785
  8.    ClientWidth     =   4785
  9.    Height          =   2895
  10.    Left            =   420
  11.    LinkTopic       =   "Form2"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   2430
  14.    ScaleWidth      =   4785
  15.    Top             =   1410
  16.    Width           =   4965
  17.    Begin vsInForm vsInForm1 
  18.       BarColor        =   &H00C0C0C0&
  19.       BarColorInactive=   &H00C0C0C0&
  20.       BarHeight       =   23
  21.       BarStyle        =   3  'Raised
  22.       ButtonsRight    =   2  '2
  23.       CapAlign        =   1  'Left Center
  24.       CapColor        =   &H00800000&
  25.       CapColorInactive=   &H00800000&
  26.       Caption         =   " Child1"
  27.       FrameColorInactive=   &H00000080&
  28.       FrameWidth      =   6
  29.       Left            =   3375
  30.       PictLeft0       =   CHILD1.FRX:0000
  31.       PictRight0      =   CHILD1.FRX:00F2
  32.       PictRight1      =   CHILD1.FRX:0238
  33.       Top             =   360
  34.    End
  35.    Begin Label Label1 
  36.       BackStyle       =   0  'Transparent
  37.       Caption         =   "Click on the custom maximize button to tile your MDI forms."
  38.       Height          =   945
  39.       Left            =   75
  40.       TabIndex        =   0
  41.       Top             =   105
  42.       Width           =   2385
  43.    End
  44. Option Explicit
  45. Sub Form_Load ()
  46.   VSInform1.CustomFrame = True
  47. End Sub
  48. Sub VSInForm1_ClickRButton (Button As Integer)
  49.   If Button = 0 Then
  50.     If Child3.WindowState <> 0 Then Child3.WindowState = 0
  51.     Child3.Move MDIForm1.Width * .3, MDIForm1.Height * .4, MDIForm1.Width * .6, MDIForm1.Height * .4
  52.     If Child2.WindowState <> 0 Then Child2.WindowState = 0
  53.     Child2.Move MDIForm1.Width * .3, 0, MDIForm1.Width * .6, MDIForm1.Height * .4
  54.     If Child1.WindowState <> 0 Then Child1.WindowState = 0
  55.     Child1.Move 0, 0, MDIForm1.Width * .3, MDIForm1.Height * .8
  56.   Else
  57.     WindowState = 1
  58.   End If
  59. End Sub
  60.